data(ny_noaa)
noaa_tidy =
  ny_noaa %>% 
  separate(date, into = c("year", "month", "day"), sep = "-") %>% 
  mutate(.data = ., prcp = as.numeric(prcp)/10, tmax = as.numeric(tmax)/10, tmin = as.numeric(tmin)/10)

Column

Chart A

noaa_tidy %>%
  filter(tmax != "", tmin != "", year == 2006 | year == 2007 |year == 2008 | year == 2009 | year == 2010) %>%
  plot_ly(x = ~tmax, y = ~tmin, type = "scatter", mode = "markers",
         alpha = 0.5,
         color = ~year)

Column

Chart B

noaa_tidy %>% 
  filter(prcp != "", year == 2010) %>% 
  plot_ly(x = ~month, y = ~prcp, color = ~month, type = "bar")
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

Chart C

noaa_tidy %>% 
  filter(tmin != "",year == 2002 | year == 2003 | year == 2004 | year == 2005 |year == 2006 | year == 2007 |year == 2008 | year == 2009 | year == 2010) %>% 
  plot_ly(y = ~tmin, color = ~year, type = "box", colors = "Set2")